qwait <- function(tag){
  while( (length(qstat(paste("-j", tag)))!=0) ){
    system("sleep 1")
  }
}